## 'data.frame':    234 obs. of  5 variables:
##  $ country  : chr  "US" "US" "US" "US" ...
##  $ date     : Date, format: "2020-09-11" "2020-09-10" ...
##  $ confirmed: num  6443743 6396100 6360212 6327009 6300622 ...
##  $ deaths   : num  192979 191766 190859 189653 189208 ...
##  $ recovered: num  2417878 2403511 2387479 2359111 2333551 ...

GGPLOt2 Plots of Cumulative Cases and Deaths

Source: New York Times

cumm_deaths <-ggplot(df) +geom_line(aes(x=date,y=deaths),lwd=3,col="blue") + 
    scale_x_date(date_breaks = "1 month") +
  scale_y_continuous(labels = comma) +
   theme(axis.text.x=element_text(angle =- 45, vjust = 0.5)) +
  labs(title="US Cumulative Total Deaths",x="Date Reported",y="Cumulative Deaths")
ggplotly(cumm_cases)
ggplotly(cumm_deaths)

GGPLOt2 Plots of Daily Deaths and Cases

Source: European CDPC

Average US Covid-19 Deaths/day

mean(df1death$Death)
## [1] 979.7766

NPR/Washington Uni 300,000 by Dec. 1,2020

(300000 - 193000)/80
## [1] 1337.5

Washington Uni and Yahoo/USA Today:

410,000 Jan. 1 2021

(410000 - 193000) / 111 # Jan 1, 2021
## [1] 1954.955

Average Deaths/Day for Jan. 31, 2020

410,000

(410000 - 193000)/ 142 # Jan 31, 2020
## [1] 1528.169

Histograms of Daily Cases and Deaths

ggplot(df1) + geom_bar(aes(x=Deaths,fill=..count..),stat="bin")

ggplot(df1) + geom_bar(aes(x=Cases,fill=..count..),stat="bin")